home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 29 / PC Gamer IT CD 29 1-2.iso / MEDIA / UPDATE.DXR / fields_17_fld3.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  979 b   |  36 lines
  1. on mouseDown
  2.   global gTB
  3.   set the visible of sprite 47 to 1
  4.   set x to doPopMenu(48, the left of sprite the clickOn, the top of sprite the clickOn)
  5.   if x > 0 then
  6.     put line x of field "Fields" into field "fld"
  7.   end if
  8.   if field "fld" = "All Shareware" then
  9.     ClearMe()
  10.   else
  11.     puppetSound(1, "sound4")
  12.     mSetCriteria(gTB, "category", "start", field "fld")
  13.     mSelect(gTB)
  14.     set n to mSelectCount(gTB)
  15.     if n <> 0 then
  16.       put n into field "NumberFound"
  17.       put mGetField(gTB, "Category") into field "zcategory"
  18.       put mGetField(gTB, "AppName") into field "Name"
  19.       put mGetField(gTB, "AppPath") into field "Path"
  20.       put mGetField(gTB, "desc") into field "zdesc"
  21.       put mGetField(gTB, "url") into field "zurl"
  22.       put mGetField(gTB, "special") into field "zspecial"
  23.     else
  24.       alert("No matching items were found.")
  25.     end if
  26.     showSelection()
  27.   end if
  28. end
  29.  
  30. on ClearMe
  31.   global gTB, gDb
  32.   set gTB to 0
  33.   set gDb to 0
  34.   go("begin")
  35. end
  36.